home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / U-Z / WindowsMenu 1.0.cpt / WindowsMenu 1.0 / WindowsMenu / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1991-06-14  |  2.6 KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>3026</cardID>
  8.     <listID>3827</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>416</width>
  14.         <height>240</height>
  15.     </cardSize>
  16.     <script>-- WindowsMenu v 1.0-- Copyright ¬© 1991-- Paul M. Lemieux-- 905 Union Street-- Cary, NC 27511-- GEnie: P.Lemieux2-- AOL: PaulLXon openstackAddWindowsMenupass openstackend openstackon resumeAddWindowsMenupass resumeend resumeon resumeSTackAddWindowsMenupass resumeStackend resumeStackon suspendStackif there is a menu "windows" thendelete menu "windows"end ifpass suspendStackend suspendStackon closeStackif there is a menu "windows" thendelete menu "windows"end ifpass closeStackend closeStackon shrinkitGlobal SaveRectput the rect of the card window into SaveRect-- if you don't like the size of the shrunk window, then change-- the paramters of the rectangle defined in the following lineset the rect of the card window to 100,100,350,250end shrinkiton AddWindowsMenuset cursor to watchif there is no menu "Windows" thencreate menu "Windows"end ifput windowMenuItems() into menu "Windows" with menuMsg WindowMenuMsgs()end AddWindowsMenufunction windowMenuItems -- ‚àÜglobal numberOfWindows,stackCSV-- get the list of open windows, rememgering that 1-8 are HC's-- internal windows, such as the message boxset cursor to watchput empty into stackCSVput last item of line 8 of the windows after stackCSVrepeat with counter = 9 to number of lines of the windowsput ","&last item of line counter of the windows after stackCSVend repeatreturn "Shrink,-,"&stackCSVend windowMenuItemson goScript theStackWindowif theStackWindow is in the windows thenshow window theStackWindowelsego stack theStackWindow in new windowend ifend goScriptfunction WindowMenuMsgs-- this function needs to be called every time the list of-- windows changes.  That is why I trapped so many of the handlers-- that are called when the frontmost stack is changed.global numberOfWindows, stackCSVput empty into windowNavigaterepeat with counter = 1 to number of items of stackCSVput ","&"goScript("&quote&item counter of stackCSV&quote&")" after windowNavigateend repeatreturn "shrinkit,"&windowNavigateend WindowMenuMsgs</script>
  17.     <background id="2757" file="background_2757.xml" name="" />
  18.     <card id="3026" file="card_3026.xml" marked="false" name="" owner="2757" />
  19. </stack>
  20.